home *** CD-ROM | disk | FTP | other *** search
/ ROM Magic / ROM Magic.iso / pc / data_07 / part1.dir / 00029.ls < prev    next >
Encoding:
Text File  |  1995-05-11  |  2.1 KB  |  100 lines
  1. on startMovie
  2.   global frag
  3.   set frag to 0
  4.   set the cursor of sprite 17 to 302
  5. end
  6.  
  7. on selectpict
  8.   global pictno, pictname
  9.   set pictname to string(pictno)
  10.   set pictname to the pathName & pictname
  11.   set mypict to fileio(mnew, "read", pictname)
  12.   set the picture of cast "Picture" to mypict(mreadpict)
  13.   mypict(mdispose)
  14. end
  15.  
  16. on nextpict
  17.   global pictno, topno, lastno, pictname, qtno
  18.   set pictno to pictno + 1
  19.   if pictno = 1010 then
  20.     set pictno to pictno + 1
  21.     set pictname to string(pictno)
  22.     set pictname to the pathName & pictname
  23.     set mypict to fileio(mnew, "read", pictname)
  24.     set the picture of cast "Picture2" to mypict(mreadpict)
  25.     mypict(mdispose)
  26.     go(7)
  27.   else
  28.     if pictno = 1014 then
  29.       selectpict()
  30.       set qtno to 1
  31.       go(15)
  32.     else
  33.       if pictno = 1016 then
  34.         go(30)
  35.       else
  36.         selectpict()
  37.         go(5)
  38.       end if
  39.     end if
  40.   end if
  41. end
  42.  
  43. on backpict
  44.   global pictno, topno, lastno, pictname, qtno
  45.   set pictno to pictno - 1
  46.   if pictno = 1014 then
  47.     selectpict()
  48.     set qtno to 1
  49.     go(15)
  50.   else
  51.     if pictno = 1002 then
  52.       selectpict()
  53.       go(25)
  54.     else
  55.       selectpict()
  56.       go(5)
  57.     end if
  58.   end if
  59. end
  60.  
  61. on enlargement
  62.   global frag, myv, myho, myw, myhi, myl, myt
  63.   puppetSprite(17, 1)
  64.   set newho to ((320 - myho) * 4) + 320
  65.   set neww to ((240 - myv) * 4) + 240
  66.   put newho
  67.   if newho < (640 - (2 * myw)) then
  68.     set newho to 640 - (2 * myw)
  69.   end if
  70.   if newho > (2 * myw) then
  71.     set newho to 2 * myw
  72.   end if
  73.   put newho
  74.   set the locH of sprite 17 to newho
  75.   put neww
  76.   if neww < (480 - (2 * myhi)) then
  77.     set neww to 480 - (2 * myhi)
  78.   end if
  79.   if neww > (2 * myhi) then
  80.     set neww to 2 * myhi
  81.   end if
  82.   put neww
  83.   set the locV of sprite 17 to neww
  84.   set the height of sprite 17 to myhi * 4
  85.   set the width of sprite 17 to myw * 4
  86.   set the cursor of sprite 17 to -1
  87.   updateStage()
  88.   set frag to 1
  89. end
  90.  
  91. on small
  92.   global frag, myv, myho, myw, myhi, myl, myt
  93.   set the height of sprite 17 to myhi
  94.   set the width of sprite 17 to myw
  95.   updateStage()
  96.   set frag to 0
  97.   puppetSprite(17, 0)
  98.   set the cursor of sprite 17 to 302
  99. end
  100.